home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
education
/
pe023.dms
/
pe023.adf
/
ALGORHYTHMS
/
SOURCE
/
DRAWFORM.C
< prev
next >
Wrap
C/C++ Source or Header
|
1988-10-05
|
5KB
|
188 lines
/* drawform.c */
/* Copyright 1990 Thomas E. Janzen All Rights Reserved */
/*
** FACILITY:
**
** AlgoRhythms music improviser on Commodore (TM) Amiga (TM)
** compiled with Lattice (TM) C 5.05
**
** ABSTRACT:
**
** Algorhythms improvises music over the MIDI serial port.
**
** AUTHORS: Thomas E. Janzen
**
** CREATION DATE: 26-MAR-1990
**
** MODIFICATION HISTORY:
** DATE NAME DESCRIPTION
**--
*/
#include <intuition/intuition.h>
#include <graphics/text.h>
#include <proto/exec.h>
#include <proto/graphics.h>
#include <proto/intuition.h>
#include <math.h>
struct Parameter {
double CenterCycle;
double CenterPhase;
double SpreadCycle;
double SpreadPhase;
};
const static char PitchLabelString[16]="Pitch";
const static char RhythmLabelString[16]="Rhythm";
const static char DynamicsLabelString[16]="Dynamics";
const static char TextureLabelString[16]="Texture";
static struct IntuiText PitchLabelTxt=
{1,1,JAM1,5,12,NULL,PitchLabelString,NULL};
static struct IntuiText RhythmLabelTxt=
{1,1,JAM1,5,56,NULL,RhythmLabelString,&PitchLabelTxt};
static struct IntuiText DynamicsLabelTxt=
{1,1,JAM1,5,100,NULL,DynamicsLabelString,&RhythmLabelTxt};
static struct IntuiText TextureLabelTxt=
{1,1,JAM1,5,144,NULL,TextureLabelString,&DynamicsLabelTxt};
extern struct Window *w;
extern struct RastPort *rp;
extern struct GfxBase *GfxBase;
extern struct IntuitionBase *IntuitionBase;
extern struct DOSBase *DOSBase;
extern struct MathBase *MathBase;
void DrawForm(const double Duration,
const struct Parameter *PitchForm,
const struct Parameter *RhythmForm,
const struct Parameter *DynamicsForm,
const struct Parameter *TextureForm)
{
static int Xlim,Ylim;
register int inttime=0;
register double curtime = 0.0;
double HeightRatio = 12.0;
double timeratio;
double Spreadfixed, Mean, Top, Bottom;
register int intTop, intBottom;
double phase;
int intLength=631;
register int intMean;
register int Step=22;
ClearScreen(rp);
SetAPen(rp,0); /* Set foreground pen to white */
for (inttime=0;inttime<25;inttime++) {
Move(rp,0,inttime); /*erase part of screen */
Draw(rp,631,inttime); /*that ClearScreen didn't clear*/
}
Xlim = w->GZZWidth;
Ylim = w->GZZHeight;
intLength=Xlim;
Step=Ylim/8;
timeratio=((double)intLength)/(Duration);
HeightRatio=12*Ylim/200;
SetAPen(rp,3); /* Set foreground pen to white */
SetDrMd(rp,JAM1); /* Draw with foreground pen */
for (inttime=0;inttime<intLength;inttime++) {
curtime=(double)inttime/timeratio;
phase=2 * PI * curtime;
Spreadfixed=(1+
sin(phase/(PitchForm->SpreadCycle)+
PitchForm->SpreadPhase))/4.0;
Mean=
sin(phase/(PitchForm->CenterCycle)+
PitchForm->CenterPhase);
Top=Mean+(Spreadfixed); /*could be -1.5 to 1.5*/
Bottom=Mean-(Spreadfixed);
intMean=Step;
intBottom=-(Bottom*HeightRatio)+intMean;
intTop=-(Top*HeightRatio)+intMean;
Move(rp,inttime,intTop);
Draw(rp,inttime,intBottom);
Spreadfixed=(1+
sin(phase/(RhythmForm->SpreadCycle)+
RhythmForm->SpreadPhase))/4.0;
Mean=
sin(phase/(RhythmForm->CenterCycle)+
RhythmForm->CenterPhase);
Top=Mean+(Spreadfixed); /*could be -1.5 to 1.5*/
Bottom=Mean-(Spreadfixed);
intMean=Step*3;
intBottom=-(Bottom*HeightRatio)+intMean;
intTop=-(Top*HeightRatio)+intMean;
Move(rp,inttime,intTop);
Draw(rp,inttime,intBottom);
Spreadfixed=(1+
sin(phase/(DynamicsForm->SpreadCycle)+
DynamicsForm->SpreadPhase))/4.0;
Mean=
sin(phase/(DynamicsForm->CenterCycle)+
DynamicsForm->CenterPhase);
Top=Mean+(Spreadfixed); /*could be -1.5 to 1.5*/
Bottom=Mean-(Spreadfixed);
intMean=Step*5;
intBottom=-(Bottom*HeightRatio)+intMean;
intTop=-(Top*HeightRatio)+intMean;
Move(rp,inttime,intTop);
Draw(rp,inttime,intBottom);
Top=(1+
sin(phase/(TextureForm->SpreadCycle)+
TextureForm->SpreadPhase))/2.0;
/*Top=SpreadFixed;*/
Bottom=-(Top);
intMean=Step*7;
intBottom=-(Bottom*HeightRatio)+intMean;
intTop=-(Top*HeightRatio)+intMean;
Move(rp,inttime,intTop);
Draw(rp,inttime,intBottom);
}
SetAPen(rp,1);
for(inttime=0;inttime<4;inttime++) {
Move(rp,0,Step*((2*inttime)+1));
Draw(rp,Xlim,Step*((2*inttime)+1));
}
PitchLabelTxt.TopEdge=Step*(1/2);
RhythmLabelTxt.TopEdge=Step*(5/2);
DynamicsLabelTxt.TopEdge=Step*(9/2);
TextureLabelTxt.TopEdge=Step*(13/2);
PrintIText(rp,&TextureLabelTxt,1,1);
}
void DrawTime(const double CurTime, const double Duration)
{
static int Xlim,Ylim;
register int inttime=0;
double timeratio;
double HeightRatio=12;
int intMean;
SetAPen(rp,2); /* Set foreground pen to white */
Xlim = w->GZZWidth;
Ylim = w->GZZHeight;
intMean=Ylim/8;
timeratio=((double)Xlim)/Duration;
HeightRatio=(12.0*Ylim)/200.0;
SetDrMd(rp,JAM1); /* Draw with foreground pen */
inttime=(int)(CurTime*timeratio);
Move(rp,0,intMean);
Draw(rp,inttime,intMean);
SetAPen(rp,1); /* Set foreground pen to white */
Draw(rp,Xlim,intMean);
}